home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / basic / df_lib.lha / df_lib / Examples / Sources / df_LslLsr.pb next >
Encoding:
Text File  |  2002-01-07  |  318 b   |  15 lines
  1. ;
  2. ; LSL/LSR example
  3. ;
  4. ; by Francis G. Loch
  5. ;
  6.  
  7. InitRequester()
  8.  
  9. a.l = LSL(2,3)          ; Should give you 16
  10. b.l = LSR(32,3)         ; Should give you 4
  11.  
  12. body$ = "Logical Shift Left (LSL) result = "+Str(a)+Chr(10)
  13. body$ + "Logical Shift Right (LSR) result = "+Str(b)
  14.  
  15. req.l = EasyRequester("Information", body$, "Okay")